home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Precision Software Appli…tions Silver Collection 1
/
Precision Software Applications Silver Collection Volume One (PSM) (1993).iso
/
tutor
/
french1.arj
/
DEMO.PRG
< prev
next >
Wrap
Text File
|
1992-08-10
|
36KB
|
991 lines
SEt bell off
set echo off
SET TALK OFF
set status off
set exact on
set color to B/B,B/B
clear
set color to gr/gr,gr/gr
@ 5,15 say replicate (chr(219),50)
@ 6,15 say replicate (chr(219),50)
@ 7,15 say replicate (chr(219),50)
@ 8,15 say replicate (chr(219),50)
@ 9,15 say replicate (chr(219),50)
@ 10,15 say replicate (chr(219),50)
@ 11,15 say replicate (chr(219),50)
@ 12,15 say replicate (chr(219),50)
@ 13,15 say replicate (chr(219),50)
@ 14,15 say replicate (chr(219),50)
@ 15,15 say replicate (chr(219),50)
set color to w+/gr,w+/gr
@ 5,15 to 15,65 double
@ 7, 20 say "Thank you for trying this Demo Version of"
@ 8,33 say "French Plus!"
@ 9,29 say "c. 1992 by G. Hayworth"
@ 12,19 say "To Order the Complete Version, please read "
@ 13,36 say "the enclosed"
@ 14,30 say "file, called order.frm"
set color to w+/b,w+/b
@ 20,1 say " "
wait " Press any key to continue "
set color to b/b,b/b
clear
XY="Tres Bon!"
xn="Mai non! Avoir besoin d' étudier!"
do while .t.
close all
set color to RB/RB,RB/RB
clear
set color to w/w
@ 2,2 say replicate (chr(219),71)
@ 3,2 say replicate (chr(219),71)
set color to b/w
@ 3,21 say "French Plus! c. 1992 G. Hayworth"
set color to n/n
@ 6,3 say replicate (chr(219),20)
@ 7,3 say replicate (chr(219),20)
@ 8,3 say replicate (chr(219),20)
@ 9,3 say replicate (chr(219),20)
@ 10,3 say replicate (chr(219),20)
@ 11,3 say replicate (chr(219),20)
@ 12,3 say replicate (chr(219),20)
@ 13,3 say replicate (chr(219),20)
@ 14,3 say replicate (chr(219),20)
@ 15,3 say replicate (chr(219),20)
@ 16,3 say replicate (chr(219),20)
@ 17,3 say replicate (chr(219),20)
@ 18,3 say replicate (chr(219),20)
set color to b/b,b/b
@ 5,2 say replicate (chr(219),20)
@ 6,2 say replicate (chr(219),20)
@ 7,2 say replicate (chr(219),20)
@ 8,2 say replicate (chr(219),20)
@ 9,2 say replicate (chr(219),20)
@ 10,2 say replicate (chr(219),20)
@ 11,2 say replicate (chr(219),20)
@ 12,2 say replicate (chr(219),20)
@ 13,2 say replicate (chr(219),20)
@ 14,2 say replicate (chr(219),20)
@ 15,2 say replicate (chr(219),20)
@ 16,2 say replicate (chr(219),20)
@ 17,2 say replicate (chr(219),20)
set color to g/b,g/b
@ 7,6 SAY "VOCABULARY"
@ 8,8 SAY "REVIEW"
@ 10,4 SAY "A. Nouns"
@ 12,4 SAY "B. Adjectives"
@ 14,4 SAY "C. Prepositions"
@ 16,4 say "D. Infinitives"
set color to n/n,n/n
@ 6,27 say replicate (chr(219),22)
@ 7,27 say replicate (chr(219),22)
@ 8,27 say replicate (chr(219),22)
@ 9,27 say replicate (chr(219),22)
@ 10,27 say replicate (chr(219),22)
@ 11,27 say replicate (chr(219),22)
@ 12,27 say replicate (chr(219),22)
@ 13,27 say replicate (chr(219),22)
@ 14,27 say replicate (chr(219),22)
@ 15,27 say replicate (chr(219),22)
@ 16,27 say replicate (chr(219),22)
@ 17,27 say replicate (chr(219),22)
@ 18,27 say replicate (chr(219),22)
set color to w/w,w/w
@ 5,26 say replicate (chr(219),22)
@ 6,26 say replicate (chr(219),22)
@ 7,26 say replicate (chr(219),22)
@ 8,26 say replicate (chr(219),22)
@ 9,26 say replicate (chr(219),22)
@ 10,26 say replicate (chr(219),22)
@ 11,26 say replicate (chr(219),22)
@ 12,26 say replicate (chr(219),22)
@ 13,26 say replicate (chr(219),22)
@ 14,26 say replicate (chr(219),22)
@ 15,26 say replicate (chr(219),22)
@ 16,26 say replicate (chr(219),22)
@ 17,26 say replicate (chr(219),22)
set color to r/w,r/w
@ 7,32 SAY "VOCABULARY"
@ 8,32 SAY "EXERCISES"
@ 10,27 SAY "E. Nouns "
@ 12,27 SAY "F. Adjectives "
@ 14,27 SAY "G. Prepositions "
@ 16,27 SAY "H. Object Pronouns"
set color to n/n,n/n
@ 5,53 say replicate (chr(219),21)
@ 6,53 say replicate (chr(219),21)
@ 7,53 say replicate (chr(219),21)
@ 8,53 say replicate (chr(219),21)
@ 9,53 say replicate (chr(219),21)
@ 10,53 say replicate (chr(219),21)
@ 11,53 say replicate (chr(219),21)
@ 12,53 say replicate (chr(219),21)
@ 13,53 say replicate (chr(219),21)
@ 14,53 say replicate (chr(219),21)
@ 15,53 say replicate (chr(219),21)
@ 16,53 say replicate (chr(219),21)
@ 17,53 say replicate (chr(219),21)
@ 18,53 say replicate (chr(219),21)
set color to r/r,r/r
@ 5,52 say replicate (chr(219),21)
@ 6,52 say replicate (chr(219),21)
@ 7,52 say replicate (chr(219),21)
@ 8,52 say replicate (chr(219),21)
@ 9,52 say replicate (chr(219),21)
@ 10,52 say replicate (chr(219),21)
@ 11,52 say replicate (chr(219),21)
@ 12,52 say replicate (chr(219),21)
@ 13,52 say replicate (chr(219),21)
@ 14,52 say replicate (chr(219),21)
@ 15,52 say replicate (chr(219),21)
@ 16,52 say replicate (chr(219),21)
@ 17,52 say replicate (chr(219),21)
set color to gr+/r,gr+/r
@ 7,60 say "VERB"
@ 8,56 say "CONJUGATION"
@ 10,53 SAY "I. Present"
@ 12,53 SAY "J. Passe Simple"
@ 14,53 SAY "K. Imparfait"
@ 16,53 SAY "L. Futur"
set color to w/w,w/w
@ 20,2 say replicate (chr(219),71)
@ 21,2 say replicate (chr(219),71)
@ 22,2 say replicate (chr(219),71)
set color to b/w,b/w
@ 21,18 say " Please enter selection (A - L or Q to quit)"
set color to RB/RB,RB/RB
@ 23,1 say " "
wait " " to num
store 0 to ghscore
store 0 to tries
Do case
Case num="A" .or. num="a"
SET COLOR TO GR+/B,GR+/B
clear
use noun
GO TOP
do while .not. eof()
@ 7,30 clear to 7,70
@ 22,53 clear to 22,70
@ 23,53 clear to 23,70
store " "+trim(english)+": "+trim(french)+" " to j
store "The "+trim(english) to a
store "The "+trim(plural) to b
store "A(n) "+trim(english) to c
store "Some "+trim(plural) to d
store trim(definite)+" "+trim(french) to e
store trim(pl_article)+" "+trim(french2) to f
store trim(article)+" "+trim(french) to g
store trim(partative)+" "+trim(french2) to h
set color to rb/rb,rb/rb
@ 11,11 say replicate (chr(219),25)
@ 12,11 say replicate (chr(219),25)
@ 13,11 say replicate (chr(219),25)
@ 11,44 say replicate (chr(219),25)
@ 12,44 say replicate (chr(219),25)
@ 13,44 say replicate (chr(219),25)
@ 17,11 say replicate (chr(219),25)
@ 18,11 say replicate (chr(219),25)
@ 19,11 say replicate (chr(219),25)
@ 17,44 say replicate (chr(219),25)
@ 18,44 say replicate (chr(219),25)
@ 19,44 say replicate (chr(219),25)
set color to bg/bg,bg/bg
@ 10,10 say replicate (chr(219),25)
@ 11,10 say replicate (chr(219),25)
@ 12,10 say replicate (chr(219),25)
@ 10,43 say replicate (chr(219),25)
@ 11,43 say replicate (chr(219),25)
@ 12,43 say replicate (chr(219),25)
@ 16,10 say replicate (chr(219),25)
@ 17,10 say replicate (chr(219),25)
@ 18,10 say replicate (chr(219),25)
@ 16,43 say replicate (chr(219),25)
@ 17,43 say replicate (chr(219),25)
@ 18,43 say replicate (chr(219),25)
set color to gr+/bg,gr+/bg
@ 7,30 get j
@ 10,18 say "Singular"
@ 10,52 say "Plural"
@ 16,17 say "Indefinite"
@ 16,52 say "Partitive"
@ 11,12 get a
@ 11,45 get b
@ 12,12 get e
@ 12,45 get f
@ 17,12 get c
@ 17,45 get d
@ 18,12 get g
@ 18,45 get h
set color to gr+/b,gr+/b
@ 22,1 say " "
wait " A=Archive Word R=Restore All N=Next Q=Quit " to choice
release a,b,c,d,e,f,g,h,j
if UPPER(choice)="A"
CLEAR
@ 15,15 SAY "There are not enough words in the"
@ 16,15 say "demo database to allow archive."
@ 20,1 say " "
wait " Press any key to continue."
CLEAR
else
if UPPER(choice)="N"
release a,b,c,d,e,f,g,h
skip
loop
else
if upper(choice)="R"
clear
set color to gr+/b
@ 10,15 say "French Plus! will now restore"
@ 11,15 say "the vocabulary words which you"
@ 12,15 say "have previously archived. This"
@ 13,15 say "will take a few moments."
set color to gr+*/b
@ 14,25 say "WORKING"
set color to gr+/b
go top
replace reviewed with .f. while .not. eof()
@ 15,15 say "All vocabulary has been restored."
wait " Press any key to return to Menu."
exit
else
if UPPER(choice)="Q"
clear
exit
ENDIf
endif
endif
endif
enddo
Case num="B" .or. num="b"
SET COLOR TO GR+/B,GR+/B
clear
use adjectiv
GO TOP
do while .not. eof()
clear
if postion="A"
place=" after "
else
place=" before "
endif
@ 7,30 clear to 7,70
@ 22,53 clear to 22,70
@ 23,53 clear to 23,70
store trim(eng)+": "+trim(french) to j
store trim(french) to a
store trim(root)+trim(mascplur) to b
store trim(root)+trim(femsing) to c
store trim(root)+trim(femplur) to d
set color to rb/rb,rb/rb
@ 11,11 say replicate (chr(219),25)
@ 12,11 say replicate (chr(219),25)
@ 13,11 say replicate (chr(219),25)
@ 11,44 say replicate (chr(219),25)
@ 12,44 say replicate (chr(219),25)
@ 13,44 say replicate (chr(219),25)
@ 17,11 say replicate (chr(219),25)
@ 18,11 say replicate (chr(219),25)
@ 19,11 say replicate (chr(219),25)
@ 17,44 say replicate (chr(219),25)
@ 18,44 say replicate (chr(219),25)
@ 19,44 say replicate (chr(219),25)
set color to bg/bg,bg/bg
@ 10,10 say replicate (chr(219),25)
@ 11,10 say replicate (chr(219),25)
@ 12,10 say replicate (chr(219),25)
@ 10,43 say replicate (chr(219),25)
@ 11,43 say replicate (chr(219),25)
@ 12,43 say replicate (chr(219),25)
@ 16,10 say replicate (chr(219),25)
@ 17,10 say replicate (chr(219),25)
@ 18,10 say replicate (chr(219),25)
@ 16,43 say replicate (chr(219),25)
@ 17,43 say replicate (chr(219),25)
@ 18,43 say replicate (chr(219),25)
set color to gr+/b,gr+/b
@ 8,17 say "This adjective usually comes"
@ 8,44 get place
@ 8,52 say "the noun."
set color to gr+/bg,gr+/bg
@ 6,33 get j
@ 10,14 say "Masculine Singular"
@ 10,48 say "Masculine Plural"
@ 16,14 say "Feminine Singular"
@ 16,48 say "Feminine Plural"
@ 12,12 get a
@ 12,45 get b
@ 18,12 get c
@ 18,45 get d
set color to gr+/b,gr+/b
@ 22,1 say " "
wait " A=Archive Word R=Restore All N=Next Q=Quit " to choice
release a,b,c,d,e,f,g,h,j
if UPPER(choice)="A"
CLEAR
@ 15,25 SAY "There are not enough words in the"
@ 16,25 say "demo database to allow archive."
@ 20,1 say " "
wait " Press any key to continue."
CLEAR
else
if UPPER(choice)="P"
skip -1
loop
else
if UPPER(choice)="N"
release a,b,c,d,e,f,g,h
skip
loop
else
if upper(choice)="R"
clear
set color to gr+/b
@ 10,15 say "French Plus! will now restore"
@ 11,15 say "the vocabulary words which you"
@ 12,15 say "have previously archived. This"
@ 13,15 say "will take a few moments."
set color to gr+*/b
@ 14,25 say "WORKING"
set color to gr+/b
go top
replace reviewed with .f. while .not. eof()
@ 15,15 say "All vocabulary has been restored."
wait " Press any key to return to Menu."
exit
else
if UPPER(choice)="Q"
clear
exit
ENDIF
endif
endif
endif
endif
enddo
case num="C" .or. num="c"
SET COLOR TO GR+/B,GR+/B
clear
set color to r/r,r/r
@ 9,18 say replicate (chr(219),45)
@ 10,18 say replicate (chr(219),45)
@ 11,18 say replicate (chr(219),45)
@ 12,18 say replicate (chr(219),45)
@ 13,18 say replicate (chr(219),45)
@ 14,18 say replicate (chr(219),45)
@ 15,18 say replicate (chr(219),45)
set color to g/g,g/g
@ 8,17 say replicate (chr(219),45)
@ 9,17 say replicate (chr(219),45)
@ 10,17 say replicate (chr(219),45)
@ 11,17 say replicate (chr(219),45)
@ 12,17 say replicate (chr(219),45)
@ 13,17 say replicate (chr(219),45)
@ 14,17 say replicate (chr(219),45)
set color to b/g,b/g
@ 10,23 say " This Menu Option is Not Available "
@ 11,23 say " in the Demo Version of "
@ 12,23 say " French Plus! "
set color to gr+/b,gr+/b
@ 19,8 say "Please refer to the file README.TXT for additional information."
@ 20,1 say " "
wait " Press any key to continue"
case num="D" .or. num="d"
clear
use ittemp
do while .not. eof()
set color to gr+/b,gr+/b
clear
Store trim(english)+": "+trim(french) to j
@ 1,13 get j
@ 5,1 say "I"
@ 6,1 say "You (fam)"
@ 7,1 say "(S)he, You"
@ 8,1 say "We"
@ 9,1 say "You (fam)"
@ 10,1 say "They, You"
@ 16,1 say "I"
@ 17,1 say "You (fam)"
@ 18,1 say "(S)he, You"
@ 19,1 say "We"
@ 20,1 say "You (fam)"
@ 21,1 say "They, You"
set color to gr+/g,gr+/g
@ 3,14 clear to 10,42
@ 13,14 clear to 21,42
@ 3,47 clear to 10,75
@ 13,47 clear to 21,75
@ 2,13 to 11,43 double
@ 2,46 TO 11,76 DOUBLE
@ 13,13 TO 22,43 DOUBLE
@ 13,46 TO 22,76 DOUBLE
@ 2,24 say "Present"
@ 2,55 SAY "Passe Simple"
@ 13,22 SAY "Imparfait"
@ 13,59 SAY "Futur"
@ 3,19 get ioeng
@ 3,52 get englishpp
store "used to "+trim(english) to engimp
@ 14,19 get engimp
STORE "will "+english to engfut
@ 14,52 get engfut
@ 3,52 get englishpp
store trim(io) to presa
@ 5,15 get presa
store trim(tu) to presb
@ 6,15 get presb
store trim(lei) to presc
@ 7,15 get presc
store trim(noi) to presd
@ 8,15 get presd
store trim(voi) to prese
@ 9,15 get prese
store trim(loro) to presf
@ 10,15 get presf
store trim(pastpart) to past
store trim(root)+trim(impio) to impa
@ 16,15 get impa
store trim(root)+trim(imptu) to impb
@ 17,15 get impb
store trim(root)+trim(implei) to impc
@ 18,15 get impc
store trim(root)+trim(impnoi) to impd
@ 19,15 get impd
store trim(root)+trim(impvoi) to impe
@ 20,15 get impe
store trim(root)+trim(imploro) to impf
@ 21,15 get impf
store trim(root)+trim(iopas) to pasta
@ 5,48 get pasta
store trim(root)+trim(tupas) to pastb
@ 6,48 get pastb
store trim(root)+trim(ilspas) to pastc
@ 7,48 get pastc
store trim(root)+trim(noipas) to pastd
@ 8,48 get pastd
store trim(root)+trim(voipas) to paste
@ 9,48 get paste
store trim(root)+trim(loropas) to pastf
@ 10,48 get pastf
STORE "Will "+english to engfut
@ 14,52 get engfut
@ 16, 53 SAY "Not available in"
@ 17,53 say "the French Plus!"
@ 18,53 say " demo."
SET COLOR TO GR+/B
@ 23,1 SAY " "
wait " A=Archive Word R=Restore All N=Next Q=Quit " to choice
release J,PRESA,PRESB,PRESC,PRESD,PRESE,PRESF,PAST,PASTA,PASTB,PASTC,PASTD,PASTE,PASTF
RELEASE IMPA,IMPB,IMPC,IMPD,IMPE,IMPF
if UPPER(choice)="A"
CLEAR
@ 15,15 SAY "There are not enough words in the"
@ 16,15 say "demo database to allow archive."
@ 20,1 say " "
wait " Press any key to continue."
CLEAR
else
if UPPER(choice)="P"
skip -1
loop
else
if UPPER(choice)="N"
release a,b,c,d,e,f,g,h
skip
loop
else
if upper(choice)="R"
clear
set color to gr+/b
@ 10,15 say "French Plus! will now restore"
@ 11,15 say "the vocabulary words which you"
@ 12,15 say "have previously archived. This"
@ 13,15 say "will take a few moments."
set color to gr+*/b
@ 14,25 say "WORKING"
set color to gr+/b
go top
replace reviewed with .f. while .not. eof()
@ 15,15 say "All vocabulary has been restored."
wait " Press any key to return to Menu."
exit
else
if UPPER(choice)="Q"
clear
exit
ENDIF
endif
endif
endif
endif
enddo
CASE num="E" .or. num="e"
set color to gr+/b
clear
@ 2,57 say "Score: "
@ 3,60 say "of:"
set color to bg/bg
@ 7,18 say replicate (chr(219),39)
@ 8,18 say replicate (chr(219),39)
@ 9,18 say replicate (chr(219),39)
@ 10,18 say replicate (chr(219),39)
@ 11,18 say replicate (chr(219),39)
set color to gr+/bg,gr+/bg
@ 13,18 say replicate (chr(220),40)
@ 7,18 to 11,57 double
use noun
GO TOP
DO WHILE .NOT. EOF()
store tries+1 to tries
do case
case questas="A"
store "One "+trim(english) to quest
store trim(article)+" "+trim(french) to ans
replace questas with "R"
case questas="R"
store "Some "+trim(plural) to quest
store trim(partative)+" "+trim(french2) to ans
replace questas with "P"
case questas="P"
store "The "+trim(plural) to quest
store trim(pl_article)+" "+trim(french2) to ans
replace questas with "S"
case questas="S"
store "The "+trim(english) to quest
store trim(definite)+" "+trim(french) to ans
replace questas with "A"
endcase
@ 3,24 say "To return to menu, type FIN"
@ 9,32 get quest
set color to gr+/b,gr+/b
@ 14,12 say " "
ACCEPT " En francais, nous parlons: " TO TRA
IF UPPER(TRA)="FIN"
@ 16,22 say "The answer is"
@ 16,36 get ans
@ 19,1 say " "
WAIT " Continuer, pressez une clé "
clear
EXIT
ELSE
IF UPPER(TRIM(ans))=UPPER(TRA)
store ghscore+1 to ghscore
@ 14,31 get xy
ELSE
@ 15,1 clear to 15,70
set bell on
? chr(7)
@ 15,22 get xn
set bell off
ENDIF
@ 17,28 get ans
@ 19,1 say " "
WAIT " Continuer, pressez un clé "
@ 14,1 clear to 24,65
@ 2,64 get ghscore
@ 3,64 get tries
set color to bg/bg
@ 8,22 say replicate (chr(219),33)
@ 9,22 say replicate (chr(219),33)
@ 10,22 say replicate (chr(219),33)
set color to gr+/bg,gr+/bg
endif
Skip
LOOP
enddo
go top
clear
close all
case num="G" .or. num="g"
SET COLOR TO GR+/B,GR+/B
CLEAR
set color to r/r,r/r
@ 9,18 say replicate (chr(219),45)
@ 10,18 say replicate (chr(219),45)
@ 11,18 say replicate (chr(219),45)
@ 12,18 say replicate (chr(219),45)
@ 13,18 say replicate (chr(219),45)
@ 14,18 say replicate (chr(219),45)
@ 15,18 say replicate (chr(219),45)
set color to g/g,g/g
@ 8,17 say replicate (chr(219),45)
@ 9,17 say replicate (chr(219),45)
@ 10,17 say replicate (chr(219),45)
@ 11,17 say replicate (chr(219),45)
@ 12,17 say replicate (chr(219),45)
@ 13,17 say replicate (chr(219),45)
@ 14,17 say replicate (chr(219),45)
set color to b/g,b/g
@ 10,23 say " This Menu Option is Not Available "
@ 11,23 say " in the Demo Version of "
@ 12,23 say " French Plus! "
set color to gr+/b,gr+/b
@ 19,8 say "Please refer to the file README.TXT for additional information."
@ 20,1 say " "
wait " Press any key to continue"
CASE NUM="F" .or. num="f"
clear
set color to gr+/b
clear
@ 2,57 say "Score: "
@ 3,60 say "of:"
set color to bg/bg
@ 7,18 say replicate (chr(219),39)
@ 8,18 say replicate (chr(219),39)
@ 9,18 say replicate (chr(219),39)
@ 10,18 say replicate (chr(219),39)
@ 11,18 say replicate (chr(219),39)
set color to gr+/bg,gr+/bg
@ 13,18 say replicate (chr(220),40)
@ 7,18 to 11,57 double
select 2
use adjectiv
LOCATE FOR NU=1 .AND. PL="Y"
if .not. found()
go top
replace nu with 1 while .not. eof()
else
replace nu with 2
endif
select 1
use noun
DO WHILE .T.
RELEASE A
RELEASE B
RELEASE C
RELEASE V
RELEASE MD
RELEASE ME
do case
case SUBSTR(French,4,1)<>"E"
STORE GENDER TO A
STORE trim(ENGLISH) TO B
STORE trim(French) TO C
store trim(definite) to v
SELECT 2
store TRIM(ENG)+" "+TRIM(B) to ques
IF A="F"
MD=TRIM(ROOT)+TRIM(FEMSING)
ELSE
MD=TRIM(french)
ENDIF
IF POSTION="A"
ME=v+" "+C+" "+MD
ELSE
ME=v+" "+MD+" "+C
ENDIF
case SUBSTR(French,4,1)="E"
STORE GENDER TO A
STORE trim(PLURAL) TO B
STORE trim(French2) TO C
STORE trim(PL_ARTICLE) to v
SELECT 2
store TRIM(ENG)+" "+TRIM(B) to ques
IF A="F"
MD=TRIM(ROOT)+TRIM(FEMplur)
ELSE
MD=TRIM(ROOT)+TRIM(MASCPLUR)
ENDIF
IF POSTION="A"
ME=v+" "+C+" "+MD
ELSE
ME=v+" "+MD+" "+C
ENDIF
endcase
store tries+1 to tries
@ 3,24 say "To return to menu, type FIN"
@ 9,27 get ques
set color to gr+/b,gr+/b
@ 14,12 say " "
ACCEPT " En francais, nous parlons: " TO at
IF UPPER(AT)="FIN"
@ 16,22 say "The answer is"
@ 16,36 get me
@ 19,1 say " "
WAIT " Continuer, pressez une clé "
clear
EXIT
ELSE
IF upper(ME)=upper(AT)
store ghscore+1 to ghscore
@ 14,31 get xy
ELSE
@ 15,1 clear to 15,78
set bell on
? chr(7)
@ 15,22 get xn
set bell off
ENDIF
@ 17,28 get me
@ 19,1 say " "
WAIT " Continuer, pressez un clé "
@ 14,1 clear to 24,78
@ 2,64 get ghscore
@ 3,64 get tries
set color to bg/bg
@ 8,22 say replicate (chr(219),33)
@ 9,22 say replicate (chr(219),33)
@ 10,22 say replicate (chr(219),33)
set color to gr+/bg,gr+/bg
continue
ENDIF
SELECT 1
skip
LOOP
Enddo
go top
CLOSE ALL
CASE NUM="H" .or. num="h"
SET COLOR TO GR+/B,GR+/B
clear
set color to r/r,r/r
@ 9,18 say replicate (chr(219),45)
@ 10,18 say replicate (chr(219),45)
@ 11,18 say replicate (chr(219),45)
@ 12,18 say replicate (chr(219),45)
@ 13,18 say replicate (chr(219),45)
@ 14,18 say replicate (chr(219),45)
@ 15,18 say replicate (chr(219),45)
set color to g/g,g/g
@ 8,17 say replicate (chr(219),45)
@ 9,17 say replicate (chr(219),45)
@ 10,17 say replicate (chr(219),45)
@ 11,17 say replicate (chr(219),45)
@ 12,17 say replicate (chr(219),45)
@ 13,17 say replicate (chr(219),45)
@ 14,17 say replicate (chr(219),45)
set color to b/g,b/g
@ 10,23 say " This Menu Option is Not Available "
@ 11,23 say " in the Demo Version of "
@ 12,23 say " French Plus! "
set color to gr+/b,gr+/b
@ 19,8 say "Please refer to the file README.TXT for additional information."
@ 20,1 say " "
wait " Press any key to continue"
CASE num="I" .or. num="i"
clear
set color to gr+/b
clear
@ 2,57 say "Score: "
@ 3,60 say "of:"
set color to bg/bg
@ 7,18 say replicate (chr(219),39)
@ 8,18 say replicate (chr(219),39)
@ 9,18 say replicate (chr(219),39)
@ 10,18 say replicate (chr(219),39)
@ 11,18 say replicate (chr(219),39)
set color to gr+/bg,gr+/bg
@ 13,18 say replicate (chr(220),40)
@ 7,18 to 11,57 double
use ITtemp
GO TOP
do while .not. eof()
store tries+1 to tries
DO case
case nu=1
store "(Je) "+ioENG to ques
store TRIM(io) to ans
case NU=2
store "(Tu) "+ENGLISH to ques
store TRIM(TU) to ans
case NU=3
store "(Il, elle) "+TRIM(leiENG) to ques
store TRIM(LEI) to ans
case NU=4
store "(Nous) "+ENGLISH to ques
store TRIM(Noi) to ans
case NU=5
store "(vous) "+ENGLISH to ques
store TRIM(Voi) to ans
case NU=6
store "(ils) "+ENGLISH to ques
store TRIM(LORO) to ans
endcase
@ 3,24 say "To return to menu, type FIN"
@ 9,25 get ques
set color to gr+/b,gr+/b
@ 14,12 say " "
ACCEPT " En francais, nous parlons: " TO TRA
IF UPPER(TRA)="FIN"
@ 16,23 say "The answer is"
@ 16,37 get ans
@ 19,1 say " "
WAIT " Continuer, pressez un clé "
EXIT
ELSE
IF ans=UPPER(TRA)
store ghscore+1 to ghscore
@ 14,31 get xy
ELSE
@ 15,1 clear to 15,70
set bell on
? chr(7)
@ 15,22 get xn
set bell off
ENDIF
@ 17,28 get ans
@ 19,1 say " "
WAIT " Continuer, pressez un clé "
@ 14,1 clear to 24,65
@ 2,64 get ghscore
@ 3,64 get tries
set color to bg/bg
@ 8,21 say replicate (chr(219),34)
@ 9,21 say replicate (chr(219),34)
@ 10,21 say replicate (chr(219),34)
set color to gr+/bg,gr+/bg
skip
LOOP
endif
Exit
enddo
GO TOP
CLEAR
CASE NUM="J" .or. num="j"
CLEAR
USE ittemp
clear
set color to gr+/b,gr+/b
clear
@ 2,57 say "Score: "
@ 3,60 say "of:"
set color to bg/bg,bg/bg
@ 7,18 say replicate (chr(219),39)
@ 8,18 say replicate (chr(219),39)
@ 9,18 say replicate (chr(219),39)
@ 10,18 say replicate (chr(219),39)
@ 11,18 say replicate (chr(219),39)
set color to gr+/bg,gr+/bg
@ 13,18 say replicate (chr(220),40)
@ 7,18 to 11,57 double
GO TOP
do WHILE .NOT. EOF()
store tries+1 to tries
DO CASE
case nu=1
store trim(root)+trim(iopas) to ans
store "(Je) "+trim(englishpp) to ques
CASE NU=2
Store "(Tu) "+trim(englishpp) to ques
Store trim(root)+trim(tupas) to ans
CASE NU=3
Store "(il, elles) "+trim(englishpp) to ques
Store trim(root)+trim(ilspas) to ans
CASE NU=4
Store "(Nous) "+trim(englishpp) to ques
Store trim(root)+trim(noIpas) to ans
CASE NU=5
Store "(Vous) "+trim(ENGLISHPP) to ques
Store trim(root)+trim(voIPAS) to ans
CASE NU=6
Store "(Ils) "+trim(ENGLISHPP) to ques
Store trim(root)+(LOROpas) to ans
endcase
@ 3,24 say "To Return to Menu type FIN"
@ 9,25 get ques
set color to gr+/b,gr+/b
@ 14,12 say " "
ACCEPT " En francais, nous parlons: " TO TRA
IF UPPER(TRA)="FIN"
@ 16,23 say "The answer is"
@ 16,37 get ans
@ 19,1 say " "
WAIT " Continuer, pressez un clé "
EXIT
ELSE
if ans=UPPER(TRA)
store ghscore+1 to ghscore
@ 14,31 get xy
ELSE
@ 15,1 clear to 15,70
set bell on
? chr(7)
@ 15,22 get xn
set bell off
ENDIF
@ 17,28 get ans
@ 19,1 say " "
set color to gr+/b,gr+/b
WAIT " Continuer, pressez un clé "
@ 15,1 clear to 24,65
@ 2,64 get ghscore
@ 3,64 get tries
set color to bg/bg,gr+/bg
@ 8,21 say replicate (chr(219),34)
@ 9,21 say replicate (chr(219),34)
@ 10,21 say replicate (chr(219),34)
skip
set color to gr+/bg,gr+/bg
LOOP
endif
enddo
GO TOP
CLOSE ALL
CASE NUM="K" .or. num="k"
SET COLOR TO GR+/B,GR+/B
CLEAR
set color to r/r,r/r
@ 9,18 say replicate (chr(219),45)
@ 10,18 say replicate (chr(219),45)
@ 11,18 say replicate (chr(219),45)
@ 12,18 say replicate (chr(219),45)
@ 13,18 say replicate (chr(219),45)
@ 14,18 say replicate (chr(219),45)
@ 15,18 say replicate (chr(219),45)
set color to g/g,g/g
@ 8,17 say replicate (chr(219),45)
@ 9,17 say replicate (chr(219),45)
@ 10,17 say replicate (chr(219),45)
@ 11,17 say replicate (chr(219),45)
@ 12,17 say replicate (chr(219),45)
@ 13,17 say replicate (chr(219),45)
@ 14,17 say replicate (chr(219),45)
set color to b/g,b/g
@ 10,23 say " This Menu Option is Not Available "
@ 11,23 say " in the Demo Version of "
@ 12,23 say " French Plus! "
set color to gr+/b,gr+/b
@ 19,8 say "Please refer to the file README.TXT for additional information."
@ 20,1 say " "
wait " Press any key to continue"
case num="L" .or. num="l"
SET COLOR TO GR+/B,GR+/B
CLEAR
set color to r/r,r/r
@ 9,18 say replicate (chr(219),45)
@ 10,18 say replicate (chr(219),45)
@ 11,18 say replicate (chr(219),45)
@ 12,18 say replicate (chr(219),45)
@ 13,18 say replicate (chr(219),45)
@ 14,18 say replicate (chr(219),45)
@ 15,18 say replicate (chr(219),45)
set color to g/g,g/g
@ 8,17 say replicate (chr(219),45)
@ 9,17 say replicate (chr(219),45)
@ 10,17 say replicate (chr(219),45)
@ 11,17 say replicate (chr(219),45)
@ 12,17 say replicate (chr(219),45)
@ 13,17 say replicate (chr(219),45)
@ 14,17 say replicate (chr(219),45)
set color to b/g,b/g
@ 10,23 say " This Menu Option is Not Available "
@ 11,23 say " in the Demo Version of "
@ 12,23 say " French Plus! "
set color to gr+/b,gr+/b
@ 19,8 say "Please refer to the file README.TXT for additional information."
@ 20,1 say " "
wait " Press any key to continue"
case num="Q" .or. num="q"
clear
close all
quit
otherwise
loop
endcase
enddo
clear
